home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Mega_magazine_1_19xx_Venturi.d64 / kasyno v1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  122 lines
  1. 1 a=500
  2. 10 poke53281,0:poke53280,0:poke646,1:printchr$(147)
  3. 20 print"      piotr stachowiak przedstawia"
  4. 30 print"             gre pod tytu\em"
  5. 40 print""
  6. 50 print"     [166]  [166]  [166][166]   [166][166] [166]   [166] [166]   [166]  [166][166] "
  7. 60 print"     [166] [166]  [166]  [166] [166]    [166] [166]  [166][166]  [166] [166]  [166]"
  8. 70 print"     [166][166]   [166][166][166][166]  [166][166]   [166]   [166] [166] [166] [166]  [166]"
  9. 80 print"     [166] [166]  [166]  [166]    [166]  [166]   [166]  [166][166] [166]  [166]"
  10. 90 print"     [166]  [166] [166]  [166]  [166][166]   [166]   [166]   [166]  [166][166] "
  11. 100 print""
  12. 110 print"                   ,       ,"
  13. 120 print" to prosta gra w kosci w ktorej musisz "
  14. 130 print"     ,"
  15. 140 print"wygrac 100000 $ , posiadasz tylko 500 $"
  16. 150 print""
  17. 160 print""
  18. 170 print""
  19. 180 print""
  20. 190 print""
  21. 200 print""
  22. 210 print""
  23. 220 print""
  24. 230 print""
  25. 240 print"                                  space"
  26. 250 geta$:ifa$=""then goto250
  27. 260 printchr$(147)
  28. 261 ifa=>100000then goto950
  29. 262 ifa=<0thengoto970
  30. 263 b=0
  31. 270 print"posiadasz : "a"$"
  32. 280 print""
  33. 290 print"ile stawiasz ?"
  34. 300 print""
  35. 301 inputc
  36. 302 ifc>athen goto260
  37. 303 ifc<=0then goto260
  38. 305 print"jaka twoim zdaniem liczbe wylosuje ???"
  39. 306 print"   '                    '"
  40. 307 print""
  41. 309 getb:ifb=0then goto309
  42. 310 ifb>=7thengoto260
  43. 320 ifb<=0thengoto260
  44. 340 i=int(rnd(1)*6)+1
  45. 350 ifi=1thengoto420
  46. 360 ifi=2thengoto500
  47. 370 ifi=3thengoto580
  48. 380 ifi=4thengoto660
  49. 390 ifi=5thengoto740
  50. 400 ifi=6thengoto820
  51. 420 printchr$(147)
  52. 430 print"wylosowa\em   [213][195][195][195][201]
  53. 440 [153]"              peek   peek
  54. 450 print"              [194] [209] [194]
  55. 460 [153]"              peek   peek
  56. 470 print"              [202][195][195][195][203]
  57. 480 [161]f$:[139]f$[178]""[167][137]480
  58. 490 [139]b[178]i[167][137]930
  59. 491 [139]b[179][177]i[167][137]900
  60. 500 [153][199](147)
  61. 510 [153]"wylosowa\em   (NULL)lenlenlenright$
  62. 520 print"              [194]  [209][194]
  63. 530 [153]"              peek   peek
  64. 540 print"              [194][209]  [194]
  65. 550 [153]"              mid$lenlenlen(NULL)
  66. 560 getf$:iff$=""thengoto560
  67. 570 ifb=ithengoto930
  68. 571 ifb<>ithengoto900
  69. 580 printchr$(147)
  70. 590 print"wylosowa\em   [213][195][195][195][201]
  71. 600 [153]"              peek  (NULL)peek
  72. 610 print"              [194] [209] [194]
  73. 620 [153]"              peek(NULL)  peek
  74. 630 print"              [202][195][195][195][203]
  75. 640 [161]f$:[139]f$[178]""[167][137]640
  76. 650 [139]b[178]i[167][137]930
  77. 651 [139]b[179][177]i[167][137]900
  78. 660 [153][199](147)
  79. 670 [153]"wylosowa\em   (NULL)lenlenlenright$
  80. 680 print"              [194][209] [209][194]
  81. 690 [153]"              peek   peek
  82. 700 print"              [194][209] [209][194]
  83. 710 [153]"              mid$lenlenlen(NULL)
  84. 720 getf$:iff$=""thengoto720
  85. 730 ifc=ithengoto930
  86. 731 ifc<>ithengoto900
  87. 740 printchr$(147)
  88. 750 print"wylosowa\em   [213][195][195][195][201]
  89. 760 [153]"              peek(NULL) (NULL)peek
  90. 770 print"              [194] [209] [194]
  91. 780 [153]"              peek(NULL) (NULL)peek
  92. 790 print"              [202][195][195][195][203]
  93. 800 [161]f$:[139]f$[178]""[167][137]800
  94. 810 [139]b[178]i[167][137]930
  95. 811 [139]b[179][177]i[167][137]900
  96. 820 [153][199](147)
  97. 830 [153]"wylosowa\em   (NULL)lenlenlenright$
  98. 840 print"              [194][209] [209][194]
  99. 850 [153]"              peek(NULL) (NULL)peek
  100. 860 print"              [194][209] [209][194]
  101. 870 [153]"              mid$lenlenlen(NULL)
  102. 880 getf$:iff$=""thengoto880
  103. 890 ifb=ithengoto930
  104. 891 ifb<>ithengoto900
  105. 895 :
  106. 900 print"nieuda\o ci sie , tracisz : "c:a=a-c
  107. 910 getf$:iff$=""thengoto910
  108. 920 goto260
  109. 930 print"zyskujesz : "c:a=a+c
  110. 940 getf$:iff$=""thengoto940
  111. 950 goto260
  112. 960 print"brawo ! brawo ! brawo ! brawo ! brawo !"
  113. 962 print"w twojej kieszeni jest 100000 $"
  114. 964 print"to koniec gry 'kasyno'"
  115. 966 getf$:iff$=""thengoto966
  116. 968 new
  117. 970 print"     ,"
  118. 975 print"jestes bankrutem partaczu !!!"
  119. 980 print"to koniec gry 'kasyno'"
  120. 985 getf$:iff$=""thengoto985
  121. 990 new
  122.